100 REM VIER GEWINNT
110 POKE 53280,0: POKE 53281,0
115 DIM X$(42),Y$(69),A(7),B(69)
120 PRINT "[147]": REM GRAPHIK
122 FOR I=55456 TO 56295: POKE I,11:NEXT
124 FOR I=0 TO 760 STEP 40: FOR J=0 TO      27: POKE 1144+I+J,160: NEXTJ: NEXTI
126 U=1944: G=160: POKE U,G: POKE U+1,G:    POKE U+2,G: POKE U+3,G: POKE U+27,G
128 POKE U+26,G: POKE U+25,G: POKEU+24,G
130 FOR K=0 TO 600 STEP 120
140 FOR I=0 TO 24 STEP 4: J=1185+I+K:       H=55457+I+K
145 POKE H,12: POKE H+1,12: POKE H+40,12    : POKE H+41,12
150 POKE J,79: POKE J+1,80: POKE J+40,      76: POKE J+41,122
160 NEXT I: NEXT K
190 E=1065: F=1185: G=1219: Q=54272
200 FOR I=1 TO 42: READ X$(I): NEXT I:      RESTORE
205 GOSUB 2000: IF RE=1 GOTO 2050
210 PRINT "";TAB(7)"VIER GEWINNT          [157][157][157][157]"
220 PRINT "[129]DER STEIN WIRD DURCH DIE SPA    [157][157][157][157]CE-"
230 PRINT "[129]TASTE IN POSITION GEBRACHT."
240 PRINT "[129]ER FAELLT NACH DRUECKEN VON     [157][157][157][157]RETURN."
250 FOR I=1 TO 42: B=1
260 Z=VAL(MID$(X$(I),B,2))
270 IF Z=0 THEN 310
280 IF LEN(Y$(Z))=6 THEN Y$(Z)=Y$(Z)+       RIGHT$(STR$(I),2): GOTO 300
290 Y$(Z)=RIGHT$(STR$(I),2)+Y$(Z)
300 B=B+2: GOTO 260
310 NEXT I
320 FOR I=1031 TO 1183: POKE I,32: NEXTI
322 FOR I=55416 TO 55446: POKE I,11:NEXT
324 FOR I=1144 TO1171: POKE I,160: NEXT
325 FOR I=55296 TO 55415: POKE I,13:        NEXT I
327 POKE 55491,9: POKE 55492,9
330 SS=2
370 A=E: B=1: Z=Z+1
380 POKE 55491,15: POKE 55492,15
385 POKE G,ASC(RIGHT$(STR$(Z),2))
390 POKE G+1,ASC(RIGHT$(STR$(Z),1))
400 IF Z>41 THEN PRINT "[158]UNENTSCHIEDEN    ": POKE G+1,50: GOTO 650
410 GOSUB 1350: POKE V,32: POKE V+1,58:     POKE V+39,B%: D=5
430 GET A$: IF A$<>"" THEN 430
440 GET A$: IF A$=" " THEN GOSUB 1370
450 IF A$="E" THEN 650
460 IF A$<>CHR$(13) THEN 440
470 IF PEEK(A+120)<>79 THEN 440
480 A=A+120: II=PEEK (V+1): FOR I=II TO     II+24: POKE V+1,I: NEXT I
490 IF PEEK (A+120)<> 79 THEN 510
500 D=D-1: GOTO 480
510 POKE A+Q,B%: POKE A+1+Q,B%:             POKE A+40+Q,B%: POKE A+41+Q,B%
520 POKE A+1,160: POKE A+40,160:            POKE A+41,160: POKE A,160
530 A=7*D+B: B=1: R=1: IF B%=14 THEN        R=-1
540 D=VAL(MID$(X$(A),B,2))
550 IF D=0 THEN 700
560 B(D)=B(D)+R: IF B(D)^2=16 THEN 580
570 B=B+2: GOTO 540
580 B$="[158]SPIELER": IF B%=14  THEN B$="[158]C    [157][157][157][157]OMPUTER"
590 PRINT "";B$;" GEWINNT"
600 POKE V,0: FOR R=1 TO 7 STEP 2
610 B=VAL(MID$(Y$(D),R,2))/7
620 T=120*(6-INT(B-.1)): S=(B-INT(B-.1))    *28-4
630 POKE E+S+T,79: POKE E+S+T+41,122
640 NEXT R
650 PRINT "[158]NEUES SPIEL (J/N) ?"
660 GET A$: IF A$<>"" THEN 660
670 GET A$: IF A$="J" THEN 1220
680 IF A$="N" THEN END
690 GOTO 670
700 IF B%=14  THEN 370
710 POKE G,ASC(RIGHT$(STR$(Z),2))
720 POKE G+1,ASC(RIGHT$(STR$(Z),1))
730 POKE V+39,14: POKE V,32
740 POKE V+1,58
750 IF Z<2 THEN S=12: GOTO 1280
760 FOR I=1 TO 69: IF B(I)>-3 THEN 820
770 FOR K=1 TO 8 STEP 2: A=VAL(MID$         (Y$(I),K,2))/7
780 T=120*(6-INT(A-.1)): S=(A-INT(A-.1))    *28-4
790 S=INT(S+.5)
800 IF PEEK(E+T+S)<>79 THEN NEXT K
810 IF PEEK(F+T+S)<>79 THEN 1280
820 NEXT I: FOR I=1 TO 69: IF B(I)<3        THEN 880
830 FOR K=1 TO 8 STEP 2: A=VAL(MID$         (Y$(I),K,2))/7
840 T=120*(6-INT(A-.1)): S=(A-INT(A-.1))    *28-4
850 S=INT(S+.5)
860 IF PEEK(E+T+S)<>79 THEN NEXT K
870 IF PEEK(F+T+S)<>79 THEN 1280
880 NEXT I: FOR M=SS TO 2: FOR I=69 TO      1 STEP -1: IF B(I)<>2 THEN 980
890 FOR K=1 TO 10 STEP 2: A=VAL(MID$        (Y$(I),K,2)): IF A=0 THEN 980
900 T=120*(6-INT(A/7-.1)): S=(A-INT(A/7     -.1)*7)*4-4
910 IF PEEK(E+T+S)<>79 THEN NEXT K
920 IF PEEK(F+T+S)=79 THEN NEXT K
930 A=(7-T/120)*7+S/4+1: J=1: IF A>42       THEN 1280
940 L=VAL(MID$(X$(A),J,2))
950 IF L=0 THEN 1280
960 IF B(L)>M OR B(L)<-M THEN NEXT K:       GOTO 980
970 J=J+2: GOTO 940
980 NEXT I: NEXT M
990 FOR M=SS TO 2: FOR I0=1 TO 13
1000 S=INT(RND(1)*6)*4
1010 IF PEEK(F+S)>79 THEN 1100
1015 T=-120
1020 T=T+120
1030 IF PEEK(F+T+S)=79 AND T<600 THEN        1020
1040 IF T=120 THEN 1280
1050 A=(6-(T-120)/120)*7+S/4+1: J=1
1060 K=VAL(MID$(X$(A),J,2))
1070 IF K=0 THEN 1280
1080 IF B(K)>M OR B(K)<-M THEN 1100
1090 J=J+2: GOTO 1060
1100 NEXT I0
1105 NEXT M
1110 FOR S=0 TO 26 STEP 4
1120 IF PEEK(F+S)>79 THEN 1210
1130 FOR T=0 TO 600 STEP 120
1140 IF PEEK(F+T+S)=79 THEN NEXT T
1150 IF T=120 THEN 1280
1160 A=(6-(T-120)/120)*7+S/4+1: J=1
1170 K=VAL(MID$(X$(A),J,2))
1180 IF K=0 THEN 1280
1190 IF B(K)=3 THEN 1210
1200 J=J+2: GOTO 1170
1210 NEXT S: PRINT "[158]COMPUTER GIBT AUF.     ": POKE V,0: GOTO 650
1220 PRINT "[147]": POKE V,0: B%=14: RE=1:       Z=0: GOTO 120
1230 RE=0: B%=14: GOTO 370
1280 A=E: B=1: Z=Z+1: D=5
1290 POKE G,ASC(RIGHT$(STR$(Z),2))
1300 POKE G+1,ASC(RIGHT$(STR$(Z),1))
1310 R=0: GOSUB 1350: IF S=0 THEN 480
1320 R=R+1: GOSUB 1370
1330 IF R=>S/4 THEN 480
1340 GOTO 1320
1350 IF B%=8 THEN B%=14: RETURN
1360 B%=8: RETURN
1370 B=B+1: A=A+4: II=PEEK(V): IF B>7        THEN B=1: A=E: GOTO 1390
1380 FOR I=II TO II+32: POKE V,I: NEXT I     : RETURN
1390 FOR I=II TO 32 STEP -1: POKE V,I:       NEXT I: RETURN
1420 REM COMPUTERSTRATEGIE
1430 DATA "01254900","0102285200"
1440 DATA "010203315500","0102030434575800"
1450 DATA "020304375900","0304406100"
1460 DATA "04436400","0525264700"
1470 DATA "05062829495000"
1480 DATA "050607313252535800"
1490 DATA "0506070834355556596000"
1500 DATA "060708373861625700"
1510 DATA "07084041646500","0843446700"
1520 DATA "092526274600"
1530 DATA "091028293047485800"
1540 DATA "091011313233495051596000"
1550 DATA "0910111234353652535461626300"
1560 DATA "101112373839646566555600"
1570 DATA "111240414267685700"
1580 DATA "124344456900","132526275800"
1590 DATA "131428293059604600"
1600 DATA "131415313233616263474800"
1610 DATA "1314151634353664656649505100"
1620 DATA "141516373839676852535400"
1630 DATA "151640414269555600"
1640 DATA "164344455700","2627176000"
1650 DATA "17182930626300"
1660 DATA "171819323365664600"
1670 DATA "1718192035364748686700"
1680 DATA "181920383950516900"
1690 DATA "19204142535400","2044455600"
1700 DATA "27216300","2122306600"
1710 DATA "212223336800","2122232436694600"
1720 DATA "222324394800","2324425100"
1730 DATA "24455400"
2000 V=53248: POKE V+21,1:POKE 2040,11:      FOR I=0TO45 STEP 3: POKE 704+I,255
2010 POKE 705+I,255: NEXT I: POKE V+27,      1: RETURN
2050 FOR I=0 TO 69: B(I)=0: NEXT I:          GOTO 320